1 CLS
5 PRINT"Labirintus jtk. Pr pillanat mulva megjelenik a kpernyn egy labirintus."
10 PRINT"A labirintus bejratnl  egy pont,melyet a kvetkez gombokkal irnyithatod:felfel az a -val,lefel az y-nal,jobbra az -val,balra a > jellel."
11 PRINT
12 PRINT
13 PRINT
15 PRINT"A PROGRAMM CSAK A NAGY BETKET FOGADJA EL!"
20 FOR I=0 TO 15000:NEXT I
100 CLS:H=5:FOR P=1 TO 59:READ A,B,C:FOR J=B*10 TO C*10:SET(J,A*10):NEXT J:NEXT P
110 DATA 2,0,25,3,1,2,3,3,6,3,7,13,3,21,23,4,1,2,4,3,4,4,8,14,4,20,21,4,23,24,5
120 DATA 1,4,5,6,13,5,21,23,6,4,5,6,6,14,7,1,3,7,4,5,7,7,14,7,19,23,8,2,4,8,12
130 DATA 15,8,20,24,9,1,3,9,4,5,9,12,16,9,19,23,10,1,2,10,3,4,10,13,17,10,20,24
140 DATA 11,1,2,11,4,5,11,14,23,12,1,4,12,15,24,13,1,4,13,5,8,13,12,13,13,15,17
150 DATA 13,18,19,13,20,23,14,2,3,14,6,10,14,11,14,14,17,20,15,3,4,15,7,11,15
160 DATA 14,23,16,2,6,16,7,10,16,11,19,17,1,6,17,7,8,17,11,19,17,20,23,18,1,7,18
170 DATA 9,11,18,13,25,19,0,25
180 FOR P=1 TO 56: READ A,B,C:FOR J=B*10 TO C*10:SET(A*10,J):NEXT J:NEXT P
190 DATA 1,3,4,1,7,9,1,10,11,1,12,13,1,14,16,2,2,3,2,4,5,2,10,11,2,14,16,3,3,4
200 DATA 3,5,7,3,9,12,3,14,15,4,2,3,4,6,7,4,13,14,5,3,6,5,7,13,6,2,5,6,6,12
210 DATA 6,14,16,7,2,5,7,7,13,7,15,16,7,17,18,8,8,13,8,17,19,9,7,14,9,16,18
220 DATA 10,8,13,11,8,14,11,17,18,12,9,13,12,14,16,12,17,19,13,10,13,14,2,7
230 DATA 14,11,15,15,2,8,16,3,9,17,2,10,17,13,14,18,12,13,19,3,11,19,12,13
240 DATA 19,15,17,20,2,6,20,13,14,20,16,17,21,16,17,22,3,7,23,13,15,23,16,17
250 DATA 24,2,18,0,3,19,25,2,18
260 PRINT$15,0,CHR$(2)"LETEK :";CHR$(6);H;
270 X=1:Y=25:A=0:B=0
280 IF INKEY$=""THEN A=1:B=0
290 IF INKEY$=">" THEN A =-1:B=0
300 IF INKEY$="A" THEN A=0:B=1
310 IF INKEY$="Y" THEN A=0 :B=-1
320 RESET(X,Y)
330 X=X+A:Y=Y+B:IF POINT (X,Y)=-1 THEN 360
340 IF X>250 THEN X$="GRATULLOK":GOTO 390
350 SET(X,Y) : GOTO 280
360 FOR I=1 TO 50 :BEEP I,50:NEXT I :FOR I=50 TO 1 STEP-1 :BEEP I,50:NEXT I:H=H-1
370 IF H=0 THEN X$="SAJNLOM":GOTO 390
380 GOTO 260
390 CLS:FOR I=1 TO 200:NEXT I :PRINTX$:FOR I=1 TO 200:NEXT I:IF INKEY$<>""THEN 390
395 IFX< 0 THEN PRINTCHR$(7):GOTO 270
400 RESTORE:GOTO 100
